﻿Module Module12
    ' 參考課本 2-33 頁
    Enum Gender As Integer
        Girl = 0
        Boy = 1
    End Enum

    ' 參考課本 2-35 頁
    Structure Student
        Dim Name As String
        Dim Gender As Gender
        Dim Eng As Integer
        Dim Math As Integer
    End Structure

    Sub Main()
        Dim st As Student
        st.Name = "Linda"
        st.Gender = Gender.Girl
        st.Eng = 100
        st.Math = 100

        ' _ 表示此行程式碼尚未結束，剩下的在下一行接著寫
        Console.WriteLine("{0}  {1}  Eng={2}  Math={3}",
                          st.Name,
                          st.Gender,
                          st.Eng,
                          st.Math)
        Console.ReadKey()
    End Sub

End Module
